home *** CD-ROM | disk | FTP | other *** search
/ Power Programmierung 2 / Power-Programmierung CD 2 (Tewi)(1994).iso / c / library / dos / diverses / cexpress / screen / setpage.asm < prev    next >
Encoding:
Assembly Source File  |  1989-05-03  |  555 b   |  25 lines
  1. ;void  set_page(page_number);
  2. ;  unsigned short  page_number;
  3.  
  4.     EXTRN  _memory_model:byte
  5.  
  6. _TEXT    SEGMENT BYTE PUBLIC 'CODE'
  7.     ASSUME CS:_TEXT
  8.     PUBLIC _set_page
  9. _set_page proc near
  10.     mov  bx,sp        ;BX pts to stack
  11.     cmp  _memory_model,0    ;near or far?
  12.     jle  begin        ;jump if near
  13.     inc  bx            ;else add 2 to BX
  14.     inc  bx            ;
  15. begin:    mov  ah,5        ;function number
  16.     mov  al,ss:[bx+2]    ;page number
  17.     int  10h        ;set the current page
  18.     cmp  _memory_model,0    ;quit
  19.     jle  quit        ;
  20.     db   0CBh        ;RET far
  21. quit:    ret            ;RET near
  22. _set_page endp
  23. _TEXT    ENDS
  24.     END
  25.